home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / utils / amige312.dms / in.adf / Src2 / Tools / Hook / installhook.e < prev   
Encoding:
Text File  |  1992-09-02  |  386 b   |  23 lines
  1. OPT MODULE
  2.  
  3. EXPORT PROC installhook(hook,func)
  4.   MOVE.L  hook,A0
  5.   MOVE.L  func,12(A0)
  6.   LEA     hookentry(PC),A1
  7.   MOVE.L  A1,8(A0)
  8.   MOVE.L  A4,16(A0)
  9.   MOVE.L  A0,D0
  10. ENDPROC D0
  11.  
  12. hookentry:
  13.   MOVEM.L D2-D7/A2-A6,-(A7)
  14.   MOVE.L  16(A0),A4
  15.   MOVE.L  A0,-(A7)
  16.   MOVE.L  A2,-(A7)
  17.   MOVE.L  A1,-(A7)
  18.   MOVE.L  12(A0),A0
  19.   JSR     (A0)
  20.   LEA     12(A7),A7
  21.   MOVEM.L (A7)+,D2-D7/A2-A6
  22.   RTS
  23.